home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / BIN / NEWIO.FSL < prev    next >
Encoding:
Text File  |  1993-02-18  |  6.2 KB  |  184 lines
  1. #!fast-load 4.0 (sources.s/newio.s)
  2. h000F 0058
  3. x0C#!UNASSIGNED
  4. x06@WRITE
  5. x08@DISPLAY
  6. x08@NEWLINE
  7. x0B@WRITE-CHAR
  8. x05@READ
  9. x0A@READ-ATOM
  10. x0C@EOF-OBJECT?
  11. x0C@CHAR-READY?
  12. x0A@PEEK-CHAR
  13. x0A@READ-CHAR
  14. x0A@READ-LINE
  15. x0C@UNREAD-CHAR
  16. x0F@NUMBER->STRING
  17. x10@INTEGER->STRING
  18. t    
  19.   
  20. ;
  21. z
  22. h0004 002E
  23. x07SPRINTF
  24. x04%ESC
  25. x07COMPILE
  26. x08%EXECUTE
  27. t< ;'O O   45
  28. z
  29. h0001 001B
  30. x06SSCANF
  31. t<; (Φ  ;
  32. z
  33. h0002 000A
  34. x07DISPLAY
  35. x08%PUTCHAR
  36. t;
  37. z
  38. h0002 000A
  39. x07DISPLAY
  40. x0A%PUTSTRING
  41. t;
  42. z
  43. h005C 0BD7
  44. lx09SPECCHARSn
  45. llc20s0007#\SPACEllc1Bs0008#\ESCAPEllc09s0005#\TABllc0As0009#\NEWLINEllc0Cs0006#\PAGEllc0Ds0008#\RETURNn
  46. x09SPECCHARS
  47. x06@WRITE
  48. x08@DISPLAY
  49. x08@NEWLINE
  50. x0B@WRITE-CHAR
  51. x04READ
  52. x05@READ
  53. x0A@READ-ATOM
  54. x0BEOF-OBJECT?
  55. x0C@EOF-OBJECT?
  56. x0BCHAR-READY?
  57. x0C@CHAR-READY?
  58. x09PEEK-CHAR
  59. x0A@PEEK-CHAR
  60. x09READ-CHAR
  61. x0A@READ-CHAR
  62. x09READ-LINE
  63. x0A@READ-LINE
  64. x0BUNREAD-CHAR
  65. x0C@UNREAD-CHAR
  66. x0AINPUT-PORT
  67. lx05INPUTn
  68. x05INPUT
  69. lx05FIRSTn
  70. x05FIRST
  71. lc5Blc5Dlc7Blc7Dlc28lc29lc27lc60n
  72. c22
  73. x0CLIST->STRING
  74. c7C
  75. c2C
  76. lc40lc2En
  77. c23
  78. lx04NEXTn
  79. x04NEXT
  80. lc42lc4Flc44lc58lc45lc49n
  81. c54
  82. x02#T
  83. c46
  84. c28
  85. lx02#(n
  86. c5C
  87. lx05THIRDn
  88. x05THIRD
  89. lx04ATOMn
  90. x04ATOM
  91. x03MAP
  92. x0FERROR-PROCEDURE
  93. s001AIllegal character constant
  94. c21
  95. s0010Illegal use of #
  96. x0ESTRING->NUMBER
  97. s0001.
  98. lx01.n
  99. lc28lc29lc27lc60lc3Blc2Clc22lc7Clc5Blc5Dlc7Blc7Dn
  100. x0BOUTPUT-PORT
  101. s0015Argument must be char
  102. x19*THE-NON-PRINTING-OBJECT*
  103. x08%PUTCHAR
  104. c0A
  105. x0ENUMBER->STRING
  106. x0A%PUTSTRING
  107. s0002#(
  108. s0002()
  109. s0001)
  110. s0001 
  111. lc20lc09lc0Alc0Clc0Dn
  112. s000AUnmatched 
  113. s000CEscaped void
  114. x06OUTPUT
  115. s000DPort expected
  116. s0001(
  117. x06STRING
  118. c3B
  119. c42
  120. c4F
  121. c44
  122. c58
  123. lc45lc49n
  124. s000FNumber expected
  125. s0003 . 
  126. c29
  127. c20
  128. x0CSTRING-NULL?
  129. s0002  
  130. s0002#\
  131. x0CSTRING->LIST
  132. x03CAR
  133. c60
  134. c3A
  135. c27
  136. t▌<■<└■<û <3■    <(     
  137.   
  138. ;"@ ▌0╪ ▌h" o0╔o;e" 0╢5e" 0ò=!âe"6 4 i"4oO0Do;!e#R 4─▌"## $h "4
  139. =! %e "&; 'e ê#∩ (e "); *e #Ä4─▌+,0$,O $$#O $ $O$ 4▌-.$    $<I /4 (.n($("(A$;(.╞(,^(,"(,; $.014; 2e "!0Æ #O  O =!² #034;;  4";─0<O444ë"; 5f "6;╦;4 4 ê " C0Y  ê " / 7i "
  140. 4; ─  0░  O ; ; ;A@ O ; " @   8£"  4   ! 9x04 :;"@ 8 ;<4 :; " @   8ë"! =4 >4  !√ï"/ ;( 4  0w !─#óÅ" > 4  !zÉ" ═> 4   S£" ; 4   .æ"& >? 4 0*    >@ 4  :;⌐^">A 5 ⁿ ⁿⁿ  4⌐Q  ⁿ \ⁿⁿ"    >B4Q ₧ Ci ;4╦;4 4" 0D4;*f"=4 4"0E 4;0Ä O;fê"0m O;; " ,@ î " @   F0G4   8ë"! =4 >4  !kï"/ ;H 4  0 !4#Å"# 0σ >4  !σÉ"H ═0ö"0ó  >4  !ò£#^n") nA> 4   ' I!*4 >4   .æ"& >? 4 0*    >@ 4  :;⌐^">A 5 ⁿ ⁿⁿ  4 ⌐Q  ⁿ \ⁿⁿ">B 4 Q É40=  "  Σ Jf " 4 ╚;4 ─  K e" !qLe" !ZMe" 
  141. !CNe"
  142.  -Oh"
  143.   03 4;4 !f" !6  0ë∙O4 44 ë"; 0P4; Ci ;#qÇ"- >Q 4  4  ;R5  @ 4 Aï"  ;S4 A  ê ;R 5 #P@ f ê" @ *f ê"@A0═ O;@A0╖ O *O ;o;44 % zT4 %a5f%M ╞ $,U0U╞04╓$ ,40ºVf$ W40 ;;;; ;#t@@ ─ └ #e@X/ 4 *O YO  RO  (O  ZO  O  JO  [O  O  O iê"A!| êê;W40q■ O5
  144. z
  145. h0019 0307
  146. lx060-HEXAlx0710-HEXAn
  147. c30
  148. x060-HEXA
  149. c41
  150. x0710-HEXA
  151. x0ENUMBER->STRING
  152. x0ESTRING->NUMBER
  153. x0CSTRING->LIST
  154. s0001-
  155. x06SSCANF
  156. s0005%lg%c
  157. lx04LYSTlx04BASEn
  158. x04LYST
  159. x04BASE
  160. x0DLIST->INTEGER
  161. c2D
  162. x07SPRINTF
  163. s0005%.16g
  164. x0FERROR-PROCEDURE
  165. s000CInvalid base
  166. s0017Argument must be number
  167. s00010
  168. x0CLIST->STRING
  169. s0014Gimme 2 args, please
  170. li0002li0008li000Ali0010n
  171. t▌ííQ÷<ë■<■;0z40Tç" fê";
  172. ^"'     
  173. 4 Ñ^"@;;;▌  
  174.  < 7  @ f "  A    0 ; # ░A 
  175. S@─$ ┬ $ ê"
  176. íR ?$ ┬ $ ê"
  177. íR ! 4  
  178. \ " % 4  P!I  " ù;;0 ç"
  179.  Gë"*
  180. ^ "  5   4; 4; ô " 1  ù0Φ   ╞(╞(,ⁿ ╓ⁿ,(ⁿ; Æ " ;0 50 ; Æ " ; W X    \"  PáO ╗A" 4;@ e " 
  181. ; h " @; @4;
  182. z
  183. h0006 0084
  184. x04TEST
  185. x0FOPEN-INPUT-FILE
  186. x10OPEN-OUTPUT-FILE
  187. x10CLOSE-INPUT-PORT
  188. x11CLOSE-OUTPUT-PORT
  189. x0C@EOF-OBJECT?
  190. t<;  440 4544ê" 4  ╬;
  191. z
  192.